home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Advisor / CD-ROM Advisor.iso / blender / blen40m / opening.dir / 00025.ls < prev    next >
Encoding:
Text File  |  1995-09-28  |  460 b   |  22 lines
  1. on exitFrame
  2.   global n
  3.   repeat with n = 16 down to 15
  4.     if rollOver(n) then
  5.       set the visible of sprite (n + 2) to 1
  6.       next repeat
  7.     end if
  8.     set the visible of sprite (n + 2) to 0
  9.   end repeat
  10.   repeat with n = 29 down to 22
  11.     if rollOver(n) then
  12.       puppetSprite(n, 1)
  13.       set the ink of sprite n to 4
  14.       next repeat
  15.     end if
  16.     set the ink of sprite n to 8
  17.     puppetSprite(n, 0)
  18.   end repeat
  19.   go(the frame)
  20.   updateStage()
  21. end
  22.